1 PRINT"[148][148][148][148][148][148]STILL 2 [151]56,128:[156]:[151]53280,.:[151]650,128 3 [139][194](32769)[179][177]246[167][147]"MCODE $8000",8,8 4 [139][194](50944)[179][177]120[167][147]"GARBAGE64",8,8 5 [139][194](52800)[179][177]58[167][147]"MICRODIR",8,8 6 [151]1,55:[158]51400:X[178][184](.):[129]I[178]1[164]40:SP$[178]SP$[170]" ":[130]:[151]53281,11 7 [160]15:[141]3000:[153]"(null)OMENT !":[159]15,8,15,"M-W":[141]3100:[139]OK[178].[167]7 8 SY$[178]"DATAMASTER (C) NSS 1987 V 9 PRINT#15,"I":GOSUB3100:IFOK=.THEN9 10 OB=32816:IN=32777:FI=32840:B8$="B-P 8 0 11 BR[178]32783:SI[178]32780:FI[178]32840:ML[178]32792:AW[178]32804:WE[178]32822:TA[178]32774:CB[178]32813 12 [134]S%(147),T%(147),S$(147),F$(146),NA$(3),AG$(20),F%(20) 13 [137]1000 14 [160]8:[159]8,8,8,"#":[141]3100:[139]OK[178].[167]14 18 OK[178]1:[158]BR,23,.,.:[158]SI,8,28,A$:[139][200](A$,25)[178]SY$[167][142] 20 [153]"ON ":[153]"ONONONONONONPEEKITTE LEGEN (null)IE EINE STR$ATENDISK EIN ! 22 PRINT"[207]EFFNEN [211]IE DANACH ERST DANN WIEDER DIE 24 [153]"(null)AUFWERKSKLAPPE, WENN DIE ROTE (null)VALSTR$ AN 26 PRINT"DER [196]ISKETTENSTATION AUSGEGANGEN IST ! 28 [160]8:[153][163]17)"[(null)ASTE,  (null) WAIT = ATNBBRUCH] 30 POKE198,.:WAIT198,1:GETA$:IFA$="X"THENOK=.:RETURN 32 PRINT"[145][207]K."SPC(14)LEFT$(SP$,22):GOTO14 1000 GOSUB3000:PRINT" [200]AUPTMENUE: 1001 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 1002 PRINT"  1 [146] [196]ATEI VON [196]ATENDISK EINLESEN 1004 [153]"  2 WAIT STR$ATEI IM (null)PEICHER ZEIGEN 1006 PRINT"  3 [146] [196]ATEI IN NORMALES [198]ILE WANDELN 1008 [153]"  4 WAIT STR$IRECTORY 1015 POKE198,.:PRINT"  5 [146] [208]ROGRAMMENDE 1016 [153]"STOP"SP$ 1020 [161]A$:[139]A$[179]"1"[176]A$[177]"5"[167]1020 1022 [145][197](A$)[141]10000,11000,12000,13000,14000 1024 [137]1000 3000 [153]:[153]"LOADSTOPSTR$ATN(null)ATN(null)ATN(null)(null)VAL(null) 64 (null)1/046 131187 (W) (null)(null)(null) 1987"; 3002 [153]MA$[200](SP$,28[171][195](MA$))"(null)ONVERTER (null)2":[142] 3100 OK[178]1:[132]15,F1,F1$,F2,F3:[139]F1[179]2[167][142] 3102 [153]"STR$ISKERROR (null)R."F1"CMD: 3103 PRINTCHR$(34)F1$CHR$(34)" IN [212]RK"F2"[157], [211]EK"F3:SYSTA:OK=.:RETURN 3200 POKE198,. 3202 GETA$:IFA$="N"THENOK=.:RETURN 3204 IFA$<>"J"ANDA$<>"Y"THEN3202 3206 OK=1:RETURN 3300 IFMA$=""THENPRINT"[203]EINE [196]ATEI IM [211]PEICHER !":SYSTA:OK=.:RETURN 3302 OK=1:RETURN 3400 FORV=1TOLEN(A$) 3402 IFMID$(A$,V,1)=CHR$(13)THEN3410 3404 NEXT:RETURN 3410 A$=LEFT$(A$,V-1):RETURN 4000 MS=.:PT=1:SYSAW:AD=49152 4002 H=PEEK(AD+1):IFPEEK(AD)=.THENRETURN 4004 AG$(MS)=MID$(A$,PT,H):PT=PT+H:AD=AD+4:MS=MS+1:GOTO4002 5000 GOSUB3000:PRINT"[211]IE SEHEN NUN DIE [197]INGABEMASKE. [194]ITTE 5002 [153]"WAEHLEN (null)IE UEBER DIE (null)ASTEN <(null)(null)ATNLENVAL> 5004 PRINT"([198]ELD DAZUNEHMEN), <[210][197][212][213][210][206]> ([206]AECHSTES 5006 [153]"ASCELD), <_TAN> (VALNDE) DIE ASCELDER AUS, DEREN 5008 PRINT"[145][201]NHALT IN DIE [196]ATEI UEBERNOMMEN WERDEN 5010 [153]"SOLL ! ((null)ASTE DRUCKEN) 5012 SYSTA 5014 GOSUB3000:SYSCB:SYSOB:PRINT"[215]EISS = [198]ELDINHALT WIRD UEBERNOMMEN " 5016 AD=49152:FR=1:FORI=1TO20:F%(I)=.:NEXT 5020 A2=PEEK(AD+2)*40+PEEK(AD+3)+PEEK(648)*256 5022 POKEA2,262-PEEK(A2):GETA$:IFA$=""THEN5022 5024 POKEA2,160:IFA$=CHR$(13)THEN5040 5026 IFA$=" "THEN5050 5028 IFA$<>"_"THEN5022 5030 OK=.:FORI=1TO20:OK=OK+F%(I):NEXT:RETURN 5040 FR=FR+1:AD=AD+4:IFPEEK(AD)=.THENAD=49152:FR=1 5042 GOTO5020 5050 F%(FR)=1-F%(FR):FORI=.TOPEEK(AD+1)-1 5052 POKE54272+I+A2,F%(FR):NEXT:GOTO5022 10000 PRINT"":GOSUB14:IFOK=.THENRETURN 10001 GOSUB3000:PRINT"[194]ITTE WAEHLEN [211]IE EINE [196]ATEI ! 10002 [129]I[178]1[164]3:[158]BR,23,I[170]1,.:[158]SI,8,21,A$:[141]3400 10003 NA$(I)[178]A$:[153]" "[196](I)" WAIT "NA$(I):[130]I:[153]"  (null) WAIT ATNBBRUCH 10004 GETA$:IFA$="X"THENCLOSE8:RETURN 10005 IFA$<"1"ORA$>"3"THEN10004 10006 ND=VAL(A$):IFNA$(ND)="[136][204]EER"THEN10004 10010 SYSBR,23,5,ND-1:GET#8,A$:NB=ASC(A$+CHR$(.)):IFNBTHEN10020 10012 PRINT"[196]IESE [196]ATEI IST LEER ! [[212]ASTE]":SYSTA:CLOSE8:RETURN 10020 PRINT"[207][203].":SYSML,ND:IG=.:SE=.:PRINT:FORI=1TONB:PRINT"[204]ESE [211]CHLUESSEL"I"[145][145] 10022 [139]IG[178].[167][158]BR,23[170]ND,SE,.:SE[178]SE[170]1 10024 IG[178]IG[170]1:[139]IG[178]16[167]IG[178]. 10026 [158]SI,8,16,A$:[158]FI,A$,S$:S$(I)[178]S$:[130]:MA$[178]NA$(ND) 10028 [158]BR,30[170]ND,5,.:[129]I[178]1[164]NB:[161]#8,A$:T%(I)[178][198](A$[170][199](.)):[130] 10030 [158]BR,30[170]ND,6,.:[129]I[178]1[164]NB:[161]#8,A$:S%(I)[178][198](A$[170][199](.)):[130] 10032 [141]3000:[153]"PEEKITTE WAEHLEN (null)IE DIE ZU KONVERTIERENDEN 10034 PRINT"[145][196]ATENSAETZE ! ([212]ASTEN [202]/[206]) 10036 [153]"(null)R. (null)CHLUESSEL RIGHT$HRE (null)AHL 10037 POKE59639,7:QH=.:PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] 10038 [129]I[178]1[164]NB:[153][201](" "[170][196](I),3)[163]4)S$(I)[163]26); 10039 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]10039 10040 [139]A$[178]"J"[167][153]" MID$A":[141]10100:[137]10044 10042 [153]"(null)EIN 10044 NEXT:IFQHTHENPOKE59639,255:CLOSE8:RETURN 10046 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] 10048 [146]203,64:[153]"(null)IE HABEN KEINEN STR$ATENSATZ GEWAEHLT ! 10049 PRINT"[206]OCHMAL WAEHLEN ? [[202]/[206]] 10050 [141]3200:[139]OK[178].[167]MA$[178]"":[151]59639,255:[160]8:[142] 10052 [137]10032 10100 [158]BR,T%(I),S%(I),.:[158]AW:[158]WE:[158]SI,8,[194](821),A$ 10102 F$(QH)[178]A$:QH[178]QH[170]1:[142] 11000 [141]3300:[139]OK[178].[167][142] 11001 [141]3000:[151]59639,4:[153]"STR$ATENSAETZE DIESER STR$ATEI: 11002 FORI=.TOQH-1 11004 A$=F$(I):GOSUB4000:FORJ=.TOMS-1:PRINTAG$(J):NEXT 11006 PRINT"[144]--------------------------------------- 11008 [130]:[153][163]32)"[(null)ASTE]":[158]TA:[151]59639,255:[142] 12000 [141]3300:[139]OK[178].[167][142] 12002 [141]5000:[139]OK[178].[167][142] 12004 [141]3000:[153]"PEEKITTE STR$ATEIFORMAT FESTLEGEN ! 12006 PRINT"[198]ILETYP ?  [211] [146] [197][209]UENTIAL 12008 [153]"  (null) WAIT (null)OCHR$RAM 12010 PRINT"  [213] [146] [211]E[210] 12012 [153]"  _ WAIT ATNBBRUCH 12014 GETTY$:IFTY$="_"THENRETURN 12016 IFTY$<>"S"ANDTY$<>"U"ANDTY$<>"P"THEN12014 12018 PRINT"[198]ILENAME ? ";:SYSIN,16,FS$:IFFS$=""THENRETURN 12020 PRINT"[194]ITTE LEGEN [211]IE DIE [196]ISK EIN, AUF DER 12022 [153]"DIE STR$ATEI ANGELEGT WERDEN SOLL !":[158]TA 12024 [160]9:[159]9,8,9,FS$[170]","[170]TY$[170]",W":[141]3100:[139]OK[167]12040 12026 [160]9:[139]F1[179][177]63[167]12004 12028 [153]"(null)EBERSCHREIBEN ? [MID$/(null)]":[141]3200:[139]OK[178].[167]12004 12029 [152]15,"S:"[170]FS$:[141]3100:[139]OK[178].[167]12004 12030 [137]12024 12040 [141]3000:[153]"STR$ATEI WIRD ANGELEGT ! 12042 FORI=1TOQH-1 12044 A$=F$(I) 12046 FR=1:PT=1:AD=49152 12048 IFPEEK(AD)=.THEN12070 12050 IFF%(FR)=.THEN12060 12052 B$=MID$(A$,PT,PEEK(AD+1)):SYSFI,B$,C$:PRINT#9,C$ 12060 PT=PT+PEEK(AD+1):AD=AD+4:FR=FR+1:GOTO12048 12070 PRINT"[157]"I"[157]. GESCHRIEBEN [145]":NEXTI:CLOSE9:RETURN 13000 GOSUB3000:POKE59639,5:PRINT"[196]IRECTORY:":SYS52736:PRINTTAB(32)"[[212]ASTE] 13002 [158]TA:[151]59639,255:[142] 14000 [153]"(null)OLLEN (null)IE WIRKLICH AUFHOEREN ? [MID$/(null)] 14002 GOSUB3200:IFOKTHENSYS64738 14004 RETURN